﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class beneficiariosFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As BeneficiariosBE
        Dim tmpBeneficiarios As BeneficiariosBE = New BeneficiariosBE()
        Try
            With tmpBeneficiarios
                .NomBene = convertDTFromDb.convertInt32(dr.Item("NomBene"))
                .Status = convertDTFromDb.convertInt32(dr.Item("Status"))
                .IdBene = convertDTFromDb.convertInt32(dr.Item("IdBene"))

            End With
            Return tmpBeneficiarios
        Catch ex As Exception
            Throw
        Finally
            tmpBeneficiarios = Nothing
        End Try
    End Function
End Class
